home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / publish.fr_ / publish.fr
Text File  |  1995-03-30  |  3KB  |  101 lines
  1. VERSION 4.00
  2. Begin VB.Form frmPublishers 
  3.    Caption         =   "Print Publishers' Names"
  4.    ClientHeight    =   1530
  5.    ClientLeft      =   2625
  6.    ClientTop       =   2595
  7.    ClientWidth     =   3690
  8.    Height          =   1935
  9.    Left            =   2565
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1530
  12.    ScaleWidth      =   3690
  13.    Top             =   2250
  14.    Width           =   3810
  15.    Begin VB.CommandButton cmdQuit 
  16.       Caption         =   "Quit"
  17.       Height          =   495
  18.       Left            =   1920
  19.       TabIndex        =   3
  20.       Top             =   840
  21.       Width           =   1455
  22.    End
  23.    Begin VB.CommandButton cmdReport 
  24.       Caption         =   "Report by Name"
  25.       Height          =   495
  26.       Index           =   2
  27.       Left            =   1920
  28.       TabIndex        =   2
  29.       Top             =   240
  30.       Width           =   1455
  31.    End
  32.    Begin VB.CommandButton cmdReport 
  33.       Caption         =   "Report by City"
  34.       Height          =   495
  35.       Index           =   1
  36.       Left            =   360
  37.       TabIndex        =   1
  38.       Top             =   840
  39.       Width           =   1455
  40.    End
  41.    Begin VB.CommandButton cmdReport 
  42.       Caption         =   "Report by Zip"
  43.       Height          =   495
  44.       Index           =   0
  45.       Left            =   360
  46.       TabIndex        =   0
  47.       Top             =   240
  48.       Width           =   1455
  49.    End
  50.    Begin Crystal.CrystalReport CrystalReport1 
  51.       Left            =   0
  52.       Top             =   0
  53.       _extentx        =   741
  54.       _extenty        =   741
  55.       _stockprops     =   0
  56.       reportfilename  =   "d:\winword\writing\database\crystal\publish.rpt"
  57.       destination     =   0
  58.       windowleft      =   100
  59.       windowtop       =   100
  60.       windowwidth     =   490
  61.       windowheight    =   300
  62.       windowtitle     =   ""
  63.       windowborderstyle=   2
  64.       windowcontrolbox=   -1  'True
  65.       windowmaxbutton =   -1  'True
  66.       windowminbutton =   -1  'True
  67.       copiestoprinter =   1
  68.       printfilename   =   ""
  69.       printfiletype   =   0
  70.       selectionformula=   ""
  71.       groupselectionformula=   ""
  72.       connect         =   ""
  73.       username        =   ""
  74.    End
  75. End
  76. Attribute VB_Name = "frmPublishers"
  77. Attribute VB_Creatable = False
  78. Attribute VB_Exposed = False
  79. Option Explicit
  80.  
  81. Private Sub cmdQuit_Click()
  82.     End
  83. End Sub
  84.  
  85. Private Sub cmdReport_Click(Index As Integer)
  86.     'Set up the Report control
  87.     Select Case Index
  88.         Case 0   'Print by Zip
  89.             CrystalReport1.SortFields(0) = "+{Publishers.Zip}"
  90.             CrystalReport1.WindowTitle = "Publishers by Zip Code"
  91.         Case 1   'Print by City
  92.             CrystalReport1.SortFields(0) = "+{Publishers.City}"
  93.             CrystalReport1.WindowTitle = "Publishers by City"
  94.         Case 2   'Print by Name
  95.             CrystalReport1.SortFields(0) = "+{Publishers.Name}"
  96.             CrystalReport1.WindowTitle = "Publishers by Company Name"
  97.     End Select
  98.     CrystalReport1.Action = 1
  99. End Sub
  100.  
  101.